home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / misc / edu / GeoWorld-Upd09.lha / geoworld_update9 / Install_Update < prev    next >
Encoding:
Text File  |  1999-08-27  |  3.5 KB  |  159 lines
  1. ;
  2. ; *** GeoWorld  V1.1   © by Beer Productions / 27 Aug 1999 ***
  3. ;
  4. ; $VER: GeoWorld - Update-Installer V1.1 (27.08.99)
  5.  
  6. ;Variablen
  7. (set #appname "GeoWorld")
  8.  
  9.  
  10. (message "Willkommen zur Installation des Updates Nr. 9\n\n\nGeoWorld V1.1 (August 1999)\n\n\n© 1996 - 1999 by Beer Productions\n\nAlle Rechte reserviert.")
  11.  
  12. (set @default-dest
  13.   (askdir
  14.     (prompt "Wählen Sie das Verzeichnis Ihrer Festplatte, IN DEM sich die GeoWorld-SCHUBLADE befindet.\n")
  15.     (disk)
  16.     (help @askdir-help)
  17.     (default @default-dest)
  18.   )
  19. )
  20.  
  21.  
  22. (set @default-dest (tackon @default-dest "GeoWorld"))
  23. (set #destdir (cat "\"" @default-dest "/" "\""))
  24. (set #dir      (@default-dest ))
  25. (set #datadir  (tackon @default-dest "Daten/"))
  26. (set #helpdir  (tackon @default-dest "Help/"))
  27. (set #linfdir  (tackon @default-dest "LInfo/"))
  28. (set #sinfdir  (tackon @default-dest "SInfo/"))
  29.  
  30.  
  31. (working " Installation des GeoWorld-Updates V1.1 ")
  32.  
  33. (If (Not (Exists (tackon @default-dest "")))
  34.   (abort "Konnte das GeoWorld-Verzeichnis nicht finden.\nDie Installation wird abgebrochen.")
  35. )
  36.  
  37.  
  38. (working " Installation des neuen GeoWorld-Hauptprogramms V1.1 ")
  39. (set a
  40.   (run ("C:lha x %s %s" "GeoWorld.lha" #destdir)
  41.   )
  42. )
  43. (if (<> a 0)
  44.   (message "Fehler beim Installieren des Hauptprogramms.")
  45. )
  46.  
  47. (working " Installation des neuen Datenarchivs ")
  48.   (set a
  49.     (run ("C:lha x %s %s" "Daten.lha" #datadir)
  50.     )
  51.   )
  52.   (if (<> a 0)
  53.     (message "Fehler beim Installieren des Daten-Archivs.")
  54.   )
  55.  
  56. (working " Installation der GeoWorld-Fonts")
  57.   (set a
  58.     (run ("C:lha x %s %s" "Fonts.lha" #fontdir)
  59.     )
  60.   )
  61.   (if (<> a 0)
  62.     (message "Fehler beim Installieren der GeoWorld-Fonts.")
  63.   )
  64.  
  65. (working " Installation der neuen Online-Hilfe ")
  66.   (set a
  67.     (run ("C:lha x %s %s" "Help.lha" #helpdir)
  68.     )
  69.   )
  70.   (if (<> a 0)
  71.     (message "Fehler beim Installieren der Online-Hilfe.")
  72.   )
  73.  
  74.  
  75. (working "Installation der neuen Bevölkerungsdaten")
  76.   (set a
  77.     (run ("C:lha x %s %s" "LBev.lha" (tackon #linfdir "Bevoelkerung/"))
  78.     )
  79.   )
  80.   (if (<> a 0)
  81.     (message "Fehler beim Installieren der Bevölkerungsdaten")
  82.   )
  83.  
  84.   (set a
  85.     (run ("C:lha x %s %s" "LPol.lha" (tackon #linfdir "Politik/"))
  86.     )
  87.   )
  88.   (if (<> a 0)
  89.     (message "Fehler beim Installieren der Politikdaten")
  90.   )
  91.  
  92.   (set a
  93.     (run ("C:lha x %s %s" "SZ_Laender.lha" #linfdir)
  94.     )
  95.   )
  96.   (if (<> a 0)
  97.     (message "Fehler beim Installieren der Länder-Stichwörter")
  98.   )
  99.  
  100.  
  101. (working "Installation der erweiterten Städte-Infos")
  102.   (set a
  103.     (run ("C:lha x %s %s" "SGes.lha" (tackon #sinfdir "Geschichte/"))
  104.     )
  105.   )
  106.   (if (<> a 0)
  107.     (message "Fehler beim Installieren der Städte-Infos")
  108.   )
  109.  
  110.   (set a
  111.     (run ("C:lha x %s %s" "SInf.lha" (tackon #sinfdir "Infrastruktur/"))
  112.     )
  113.   )
  114.   (if (<> a 0)
  115.     (message "Fehler beim Installieren der Städte-Infos")
  116.   )
  117.  
  118.   (set a
  119.     (run ("C:lha x %s %s" "STou.lha" (tackon #sinfdir "Tourismus/"))
  120.     )
  121.   )
  122.   (if (<> a 0)
  123.     (message "Fehler beim Installieren der Städte-Infos")
  124.   )
  125.  
  126.   (set a
  127.     (run ("C:lha x %s %s" "SWir.lha" (tackon #sinfdir "SWir/"))
  128.     )
  129.   )
  130.   (if (<> a 0)
  131.     (message "Fehler beim Installieren der Städte-Infos")
  132.   )
  133.  
  134.   (set a
  135.     (run ("C:lha x %s %s" "SZ_Staedte.lha" #sinfdir)
  136.     )
  137.   )
  138.   (if (<> a 0)
  139.     (message "Fehler beim Installieren der Städte-Infos")
  140.   )
  141.  
  142.  
  143. (working " Installieren der überarbeiteten Anleitung ")
  144.   (copyfiles
  145.     (help "")
  146.     (SOURCE "Anleitung")
  147.     (DEST @default-dest)
  148.     (optional nofail force askuser)
  149.   )
  150.  
  151.   (copyfiles
  152.     (help "")
  153.     (SOURCE "Anleitung.info")
  154.     (DEST @default-dest)
  155.     (optional nofail force askuser)
  156.   )
  157.  
  158. (exit)
  159.